Write Functions in R: sudoku solver with R || 03